home *** CD-ROM | disk | FTP | other *** search
/ Into That Dark Night / Into That Dark Night.iso / pc / YadVashem / shockCulture.dxr / Internal_31_movie script.ls < prev    next >
Encoding:
Text File  |  2001-06-12  |  760 b   |  35 lines
  1. on prepareMovie
  2.   initPresentation()
  3.   repeat with i = 50 to 54
  4.     set the visible of sprite i to 1
  5.   end repeat
  6.   repeat with i = 100 to 110
  7.     set the visible of sprite i to 0
  8.   end repeat
  9.   repeat with i = 112 to 120
  10.     set the visible of sprite i to 0
  11.   end repeat
  12.   updateStage()
  13. end
  14.  
  15. on startMovie
  16.   global floatMenu, Zed
  17.   DmFadePackReg("64464")
  18.   DmFadePackReg("40733")
  19.   Zed()
  20. end
  21.  
  22. on Zed
  23.   set the windowType of window "Z" to 2
  24.   set the titleVisible of window "Z" to 0
  25.   set the rect of window "Z" to the drawRect of window "Z" + rect(the stageLeft + 619, the stageTop + 458, the stageLeft + 619, the stageTop + 458)
  26.   open(window "Z")
  27. end
  28.  
  29. on stopMovie
  30.   global floatMenu
  31.   if objectp(floatMenu) then
  32.     forget(window "floatMenu")
  33.   end if
  34. end
  35.